sub gcd {
    my $i=shift;
    my $j=shift;
    if ($j==0) {
        return $i;
    }
    return gcd($j,$i%$j);
}

sub lcm {
    my $i=shift;
    my $j=shift;
    return $j*($i/gcd($i,$j));
}

1;
